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BASIC V1.0 — V1.1 
(from DAInamic 11, page 209) 


For some time now there have been two versions of DAI-BASIC, V1,0 and the newer V1.1. As far 
as possible DAI have corrected the bugs, at least the ones they knew about, in the V1.0 ROMs, 
By dint of experiment with the two ROM sets I have tried to locate the differences - 6 of 
this information I obtained directly from DAI, Неге are my provisional findings. 


1 Vi reacts differently on a RUN line-number. In V1.0 all the variables would be cleared but 
that does not happen with the V1.1 and is a major benefit of the new КОМ; now debugging BASIC 
programs is simpler. For example, while running a program it is now possible to break, to list 
and even to change directly the value of variables before letting the rest of the program 
continue. 


2 DIM (255,255) is permitted with V1.1 


3 Sound channel 2 will be switched off by a hard reset} that was never guaranteed with V1.0 so 
there was always a possibility that the sound would return when switching on again 


4 SAVEA and LOADA now work correctly (see previous DAInamic newsletters) 

5 The bug has been removed from the SGN function 

& А minor bug has also been cleared from the EDIT made. This fault did not have any serious 
consequences and was reported by only two users. (under some circumstances the cursor 


disappeared for a while) 


7 The basic operator ‘~’ is correctly recognised in V1.1 so that it is по longer necessary to put 
brackets around the negative expression. 


8 There was a bug in the TALK command but I do not know what it was. 
9 GETC is now debounced., The keyboard buffer is cleared first. 
10 Returning from the EDIT mode it is now unnecessary to key immediately RUN 


11 The TAB function now works correctly, ie, independently of the serial channel (printer) if 
that was not switched an. 


12 There was also an incorrect error message given sometimes, such as ERROR IN LINE +. 
without a line number. 


The foregoing differences between the two ROMS are those I know about, If anyone wants a list 
of those differences in hexadecimal format he can obtain it from Jos Schepens for the cost of 
copying and postage. Hopefully this short review will enable you to judge if the new ROMs are 
good value. I do not know what they will cost but I have an idea that the price will be fairly 
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DAI pc's communicate via public telephone lines. 
зазаненеанненаненевнанававеанеаннеанинананааназненнне 


This article will give you a detailed description how to 
communicate (TALK), directly via your screen, exchange 
electronic mail, program-listings or object files, from 
one DAI to another, by using a low cost (acoustical) modem. 
To achieve this, the following steps have to be taken: 


a) Load the machine language program, named DAICOM (DAI’s 
COMmunicate) and start it with UT-Z3-6400. 
Not CALLM #400 !! 

b) Connect your modem to the RS232 at the rear of the DAI. 

с) Make your telephone-call with the other DAI-user,who 
should also have completed steps a and b. 


Assuming you can hear each other loud and clear, as usually 
on a Dutch line, first make the decision who works in 
Half/Full-duplex (always in the opposit mode), before 
switching over to the modem. 


The advantage of working in full-duplex is that you can see 
if something goes wrong during data transmission, because 
the typed character is first sent to the receiver, who 
echo's it, whereafter it comes on your own screen. 

After this choise is made press both «T» and TALK via 

the key-board. 

Typing cursor-up displays the MENU again and one of the 
ather features can be selected. 


The choise of the ۰ں‎ 


а-ы = 


The modem (MOdulate DEmodulate) should comply the CITT V21 
standard 1.а.и.: 


¬ Full duplex operation. 

- 300 baud. 

- 2 switch-able channels (each DAI works on a different 
channel). 


The best choise is a modem which is directly connected to 

the telephone-line, but these types are generally expensive and 
must have (in Holland) PTT approval. 

A good alternative is a cheaper acoustic modem. 

We personally have good experience with a modem (kit), 
offered by the firm NENIJWA in EDE (Holland) telephone 

number 08380-10856. 

With just a little understanding of basic electronics and a 
good soldering iron (small tip), you should be able to 
assemble the kit in a couple of hours. 

A minor disadvantage of such a modem is that it easily picks- 
up background noise, but a piece of foam could help reduce 
this. 


What are the possibilities of working with DAICOM 


================================================= 


The most interesting feature is that you can either 
transmit and receive both ASCII and HEX (object) files. 


Transmit files. 
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For ASCII, all that is (or moved) in the editbuffer can 

3 be transmitted. 

+ You can for example type a message in the edit-mode <E> and 
Е afterwards send it away. 


Sending a BASIC program 
After DAICOM is loaded and started go to <B> BASIC and 
simply LOAD a program from tape or DCR (heap pointers 
are adjusted automatically). 
Type : -CLEAR XXXX 
-EDIT 
-ВКЕАК 
-ВКЕАК 
Тһе program is іп the editbuffer and ready for transmitting. 


Send DNA source listing 
DNA source files (bufferdim. 16), can directly be sent by 
typing <S> in the menu. 


Send HEX files 
To transmit a hex-file first the start and end address 
of the data-block is required, before the transmission 
starts. 





It is important to note, that you can always see on the 
screen what is coming in or going out. 


Receive files 

============= 
All incoming data is stored in the (default #3000-#4FFD) 
buffer.lf more space is required ,go to basic and give 
CLEAR XXXX, EDIT, BREAK, BREAK. 


: Received basic programmes are ready for LIST or RUN after 
Е РОКЕ #135,2 is performed. 


If an object file is received, the start and end address 
of the received file are given and the relocate (start) 
address is asked. 

After converting the ASCII characters in HEX bytes, 
relocating is performed. 








DAInamic 83-15 - 113 





DNA source files can be saved on tape or DCR by first 
finding the end adddress of the file. 

Edit buffer pointer 64-05 gives the end address (LLHH). 
The start address is always #3000, 

бо to UT and Display 2042 4 


Example:the address 3277 is displayed as 77 32 


Now typing VI300 HHLL and save the file on tape or DCR. 
If DNA is loaded type R. and the file will be read as 
а normal source file. 


How to work via the menu. 


აა ШЕ ОО ШЕ SSS SS SSS SSS‏ کت ული‏ کا کل کا = لک ھک 


First load the program. 


Now the menu is displayed and the following options can be 
selected. 


<E> ENTER EDIT MODE: 
This facility can be used to prepare a letter (mini- 
word processor). | 
Also received ASCII files will come automatically in 
this mode and can easily be edited. 
Escape with BREAK 

<H> HALF-DUPLEX (DCE data computer): 
The receiver of files (ASCII or HEX) comes auto- 
matically in this mode. | 
The program accepts the received character stores it 
in the (edit)buffer, echo’s it back to the transmitter 
and displays it on the screen. 
During "TALKING" via the key-board, the typed characters 
are both send to the screen as well to the RS232 (2). 

<F> FULL-DUPLEX (DTE data terminal): 
Full-duplex is automaticaly selected during transmitting 
files. 
Characters are first sent to the receiver (other DAI in 
receive mode), who echo’s the character before you get 
it back on the screen. 

<T> TALK 
In this mode, both can see the typed characters, this 
means that you can "TALK" via the Кеу-Боага. 
One should be in full-duplex, whilst the other is in 
half-duplex. 
With BREAK to MENU. 

«8» SEND DNA SOURCE: 
The assembler source listing is transmitted and shown 
on the screen. At the end or if you hit BREAK, again 
initialisation is performed. 
This command has a dual function which is usefull in 
case a basic program has been edited and again the 
default buffer is required. 

<A> SEND ASCII FILE: 
The content of the editbuffer is transmitted and | 
displayed on the screen. 
End of file character followed by the checksum is 
transmitted. 
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<#> SEND HEX FILE: 
The program asks the (hex) start and end address of the 
file and start transmitting immediately after the end 
address is given. 

<R> RECEIVE ASCII FILE: 
Received characters are displayed on the screen and 
stored in the editbuffer.The end of text character (5) 
followed by the checksum are not displayed. 
If the checksums are different,in the cursor appears 
an "F" and the program stays in Receive mode. 
Escape with BREAK, and enter the Edit-mode. 

XH» RECEIVE HEX FILES: 
Similar to <R>, but displays the start and end address 
of the rceived file and ask the new start address of 
the file (relocates the file). 

<U> BACK TO UTILITY: 

«B» BACK TO BASIC: 


Some practical notes. 


You have now read the whole article and typed or loaded the 
programme in the DAI 

At this stage you can start playing with it even without 
moden. 

Just take a piece of wire, strip it and connect 2 and 3 of 
the RS232 (see manual).Be not afraid, all in/outputs on this 
connector are buffered. 

All the "send" comeands can be exercised (full-duplex). 


Another possibility is if there are 2 DAI's. 
In this case,couple them by making the following connections. 





i DAI 1 DAI no.2 
xÜ К8232 pin RS232 pin 
io SS ---- 01 
| _.. 
: JO. 02 


i-ground 2=serial out З=вег1а1 in 
The same rules apply as if working with a modem. 
Finally I would like to thank Noud Rynaerts and Leo v.d.Laak 
for their valuable comments and suggestions and the extens- 
ive "field tests". 


If you have problems or questions call me on extension 
04780-84180 after 18.00 hrs. 


Success, 
Ger Gruiters 


Laurahof 12 
3801 JE Venray 


DAICOM will be available on TOOLKIT 5, to be released soon. 
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әді *DAICOM V3.3 BY G.GRUITERS 16-1-1983 

6902 * . 

003 BDRATE EQU :64 509 BAUD 1 STOF-BIT 
дёд STSREG EQU :FFF3 STS-REG IN TICC 

995 INCHAR EQU :FFFe SER INF BUFF 

006 STAEB EGU :A2 ADDR START EDIT-BUFFER 
997 EBFTR EQU :A4 ADDR END OF TEXT IN EBUFF 
eog ENDEB EQU 6 ADDR END ۴ 
999. ж 

916 ORG :400 ENTRY PROGRAM 

611 6400 CD2304 CALL START INITIALISE 

ді? 0403 C3EA504 JMP = SPFECL DISPLAY MENU 

91 ж 

614 ж TALE 

915 # 

916 0406 4 MAINLF CALL CHESTS CHECK IF CHAR RECEIVED 
917 8499 4+ см? INTRI IF YES,HANDLE/DISPLAY 
018 040C ۲0806 CALL :D6BE KEY PRESSED? 

919 O40F ۸ JC SPELL IF BREAK MENU 

828 0412 4 CNZ TRANS YES, HANDLE / TRANSMIT 
921 9415 4 JMP МАІМІР CONTINUE LOOP 

822 + 

e23 9418 ЗЕ49 TOUT MVI A, 44 BAUDRATE 9500 

924 9416 ۴ STA :ЕҒӨЗ 

825 @41D 3168 f LXI SF,:F900 RESTORE STACKPNTR 
625 0420 0396 IMP :E009 BACK TO UTILITY 

027 0423 362008 START LDA 81ع‎ CHECK IF THIS IS 
28ت‎ 6426 FEO! CPI 1 THE 1ST PASS, IF NOT 
629 0428 CA5404 JZ ENDWST SKIF INIT. 

озо 0428 219404 LXI  H,ENDPRG SET START HEAP AFTER 
921 942Е 229B02 - SHLD :29B END PROGRAM 

O22 9421 1 LXI Н,:199 ADJUST HEAF SIZE 
633 6434 229082 SHLD :29D 

954 0457 CDBBDE CALL  :DEB8 RNEW 

Әзе 0434 210030 LXI  H,:2000 SET-UP EBUFF ۲۰۶۹ 
дзь 9450 220200 SHLD 98 | 

927 9440 21۴0۵۴ II  H,:4FFD 

OZB 9445 226600 SHLD ENDEB 

929 0446 4 CALL  CLEBUF 

640 9449 2106000 LXI Hð 

941 644C 22B400 SHLD :B4 NO TABS 

942 @44F 3601 MVI 8,1 SET FLAG INIT DONE 
243 0451 322008 STA FLAGI 

644 0454 4 ENDWST MVI ھ٤‎ 

945 0456 Z2FSFF STA :ЕҒЕ5 

046 9459 1 MVI 1مھ‎ TO SCREEN ONLY 

947 ბ458 522101 STA 111 

948 945Е C9 RET 

949 2456 68 CLEBUF LHLD STAEB CLEAR EBUFF 

650 9462 EB XCHG 

051 6453 21۴۴۵۴۳ LXI — H,:&FFF 

652 6466 AF ZAR 

952 6457 CD7CDE CALL ٤'6 

PAGE 62 

954 6454 C9 RET 

оса 645B ЗАЕЗЕЕ CHESTS LDA 898 

656 946Е 8 ANI 8 CHAR RECEIVED ? 
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957 0476 C9 RET 








e58 ж 
959 ж HANDLE RECEIVED CHARACTERS 
840 * 
651 0471 ЗАЕФЕЕ INTRI LDA INCHAR GET RECEIVED CHAR 
962 0474 FE7F CPI 127 МОТ VALID IF MSB=1 
даз 9476 FO КР 
804 0477 ЕЕОВ BACKSF CPI 8 BACKSPACE 
965 0479 4۵۸4 ჰ7 SCREEN 
046 947С FEGD CPI 12 6-7 
657 947Е 008404 JZ SCREEN 
658 0481 06 CPI 32 FILTER ALL CHAR'S BELOW Z2 
659 0483 DB RC EXCEFT 8 AND 13 
979 0484 064 SCREEN CALL  :D695 DISPLAY CHAR 
671 6487 64 CALL ECHO | 
972 0486 AF ZAR 
975 0488 322608 STA 8۵۸ CLEAR TALK FLAG 
974 АВЕ C9 RET 
9075 0486 57 ECHO MOV ۵ 
| 976 0490 302608 LDA FLAGS 
E 077 0493 ЕЕФ1 CPI 1 
i 978 2495 Ce | ЕМ7 ECHO ONLY IN HALF-DFL 
079 0495 8 LDA FLAG4 
OBO 0499 6601 CPI 1 
ბ81 0498 C8 RZ NO ECHO IF TALK FLAG IS SET 
682 049C 4 WAIT2 CALL WAIT READY FOR TRANSMIT? 
982 9496 32F4FF STA  :FFF& SEND CHAR VIA ٣82 
084 9442 C9 RET 
085 6443 ЗАЕЗЕЕ WAIT LDA STSREG MASK FOR “TRANSMIT 
ბ86 0406 ნ619 | ANI 14 BUFF EMPTY, IF NOT 
087 ბ408 4۵4 Jz WAIT TRY AGAIN 
988 @4AB 7A MOV A,D 
989 @4AC C9 RET 
099. + 
991 ж HANDLE CHARACTERS TO TRANSMIT 
992 * 
995 0400 FS TRANS FUSH PSW 
094 0406 1 MVI 1 
095 2480 322608 STA  FLAGA SET TALK FLAG 
E 99% @4B3 F1 POP FSW 
» 097 9484 57 TRANSC MOV D,A 
i 998 0485 4 CALL WAIT 
099 0498 6610 CFI 16 IF CURSOR-UP 
160 DABA ٥64 11 SPECL DISPLAY MENU 
E 101 0480 FEOB CPI 8 (SEE LABEL BACKSPACE) 
192 O64BF 64 JZ OUT 
103 ФАС? ЕЕФО CPI 13 
194 94C4 C0C004 JZ QUT 
105 04C7 FE7F CPI 197 
196 0469 Fo : RP 
FAGE 03 
107 0466 წნ20 CPI 32 
ა” 108 94сс DB RC 
2 199 Ө4Ср 7A OUT MOV — AD 
| 119 94СЕ 32۴۳۴ STA :FFF6 SEND VIA 08232 
| 111 8401 8 LDA FLAGS 
| 112 @4D4 1 CPI 1 HALF-DPLX? 
| 113 0406 САЕ204 JZ HDUPL X 
114 9409 303188 SUMCHA LDA  CHESUM LOAD OLD CHECKSUM 
115 @4DC AA XRA D UPDATE 
| 116 9400 7 RLE 
117 @4DE 323108 STA CHKSUM STORE NEW CHECKSUM 
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119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
150 
15 
132 
155 
14 
55 
136 
157 


17 
+5 


129 
149 
141 
142 
143 
144 
145 
146 
147 
148 
149 
159 
151 
152 
183 
154 
185 
156 
157 
158 
157 


ӘДЕ? 
04C5 


846 
0469 
646 
ӘДЕП 
e4Fo 
9465 
045 
29468 
@4FB 
p4FE 
9501 
ა505 
0506 
29508 
соев 
61ت‎ 
0510 
0512 
0515 
0517 
9516 
@Sic 
ӘЗІР 
9521 
0524 
9526 
0529 
2528 
952Е 
0520 
053535 
6555 
0528 
2553 

055C 
9541 


РАБЕ 94 


160 
161 
162 
165 
164 
165 
166 


167 
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9544 
9546 
9549 
40 
ӨЗДЕ 
9551 
9554 
9555 
9558 


95568 


2 9550 


9550 
9563 
0564 
0567 
08 
8560 


9571 
6574 
0577 


7A 
C27 784 


21Е800 
220200 


323008 
3ESF 
327500 
216358 
CDD4DA 
CDBEDS 
FEAS 
СА2197 
ЕЕ4 В 
064005 
۴66 
C65495 
۹ 
CAZES 
FE41 
C66595 
FE2S 
0٣85 
FESS 
0686-0985 
FES2 
CAGDOS 
ЕЕ58 
СА7795 
FESS 
0۸824 
FE42 
CA4405 
6684 
212068 
CDDADA 
C30604 


ЗЕ4В 
З2ЕЗЕЕ 
СЗАВС? 
81د‎ 
322E08 
4ت6‎ 
AF 
322C98 
C5C604 
5C01 
322098 
C55107 
AF 
322098 
CD8295 
03605 


7 ӘЗБЕ 222 


Ср9895 
6006 
5691. 





HDUPLX 


ӨРЕСІ. 


CHOISE 


TALK 


TOBAS 


HALF D 


 FULLD 


SHEX 


SASCI 


RECASC 


КЕСНЕХ 


MOV 
JMF 


MENU 


LXI 
SHLD 


MVI 
STA 
JMP 
MVI 
STA 
JMF 
ZAR 
STA 
ჰო 
MVI 
STA 
JMF 
ZAR 
STA 
CALL 
JMF 
ZAR 
STA 
CALL 
JMP 
MVI 


A,D 
BACKSP 


B2 


MAINLF 


А, 64 
:FFFS 
:Г780 
8,1 

FLAGS 
SPECL 


FLAGS 
SPECL 
8,1 

۴2 
EDIT2 


FLAGZ 
86 
EDIT 


FLAG2 
RMSG 
READ 
А,1 


RESTORE. INP ۴۳ 


ZERO FLAGS 


NORMAL CURSOR 
DISPLAY MENU 


WAIT FOR CHOISE 
E 


H 


F 


BACK TO BASIC 


SET HALF-DUFLX 
SET FULL-DUPLX 
SET HEX 

SEND HEX FILE 


SET ASCII 


SEND ASCII FILE 


RECEIVE ASCII FILE 


181 9579 322098 STA 2 


182 70 5 CALL RMSG 

183 0657F 050106 JMP READ RECEIVE HEX FILE 

184 0582 69 5М56 LXI H, MSGI 

185 0585 86 CALL sDAD4 MESSAGE" SEND" 

186 9588 CDAAGS CALL CLCHKS 

187 9588 AF ZAR 

188 058C 8 STA FLAGS 

189 OS8F SAFOFF LDA INCHAR CLEAR INF BUFF 

190 0592 1482 МУІ D,:82 

191 9594 С09С94 CALL WAITS SEND START CHAR 

192 0597 C9 КЕТ 

193 9598 21ЕВ09 )0 6 LXI H, 1564 

194 0598 CDD4DA CALL :DAD4 MESSAGE "RECEIVE" 

195 959Е CDSFe4 CALL CLEBUF 

196 95061 CDAAGS CALL CLCHES 

197 6504 1 MVI 8,1 

198 65۵6 8 STA FLAGZ 

199 @5A9 C9 RET 

200 0506 AF CLCHKS ZAR ZERO CHECKSUM ADDR. 
201 9568 525198 STA CHESUM 

202 95ДЕ C9 RET 

205 * 

204 ж SEND EDIT-BUFFER 

205 ж 

206 @SAF 86 EDIT LDA FLAG? IF HEX FLAG SET, JUMP 
207 6582 1 CFI 1 ТП HEX SEND ROUTINE 
208 0584 287 JZ EDIT2 

209 958987 2260 SDNAS LHLD ٤8 GET 1ST CHAR FROM EBUFF 
210 2586 226064028 NEXTCH SHLD 7٣۳ 

211 @SBD 7E MOV &,M 

212 eSBE ۴۷۵ CPI е END OF DATA? 

FAGE 25 

213 2500 060205 02 СНКЕ 1 

214 650353 6۴۳ 6M1 127 STRIP MSE (DNA SOURCE) 
215 09505 8 CALL ТЕСЕ TRANSMIT CHAR 

216 0508 23 INX H INCR. EBLFF FNTR 
217 0509 CDBED6 CALL  :D6BE BREAK FRESSED? 

218 89506 ۶۷ ჰC CHKFL.1 

219 @SCF 5 JMF NEXTCH NEXT CHAR 

220 0502 8 CHKFLi LDA CI 661 IF FLAG IS SET THEN 
221 9505 ۵8 ЕРІ ტ AGAIN INITIALISATION 
222 9507 ) 7 JNZ 81 SEND END OF TEXT & CHECKSUM 
225 0506 002504 CALL START 

224 0500 С24207 JMP STAY1 

225 # 

226 ¥ SEND DNA (16)SQURCE VIA (EDIT) BUFF. 

227 р х 

228 @SEQ@ 1845912 SSTEB LDA : 1259 | 

229 9565 РЕӨӨ CPI e DNA SOURCE AVAILABLE? 
230 OSES CAEBOS JZ SSOURC 

231 2568 5 ჰML CHEFL1 IF NOT, TO MENU 

232 058 5 SSOURC CALL SMSG 

233 OSEE АҒ ZAR 

224 БЕР 8 STA FLAGI NEW INIT. REQUIRED 
235 ӨЗЕ2 110070 LXI 0۰6 DNA SOURCE START 
236 ӨЗЕЕ 205512 LHLD :1255 FNTS TO DNA SYMB-TABLE 
237 956ც 0 LXI B, : 3000 

238 058 CD4FDE CALL :DE4F MOVE SOURCE 

239 ٥5۴م‎ C2B705 JMF SDNAS 

249 * 

241 * TRANSFER TO (EDIT) BUFFER 
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+ 

i 

i 
Ел 
Е. 
F 
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243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
268 
261 
262 
263 
264 


265 


9601 
2692 
0605 
9689 
BLOC 
BLOF 
$511 
9614 
9517 
9614 
9510 
61۳۴ 
6522 
6624 
6527 
6629 
962C 
962b 
9631 
9652 
0655 
9856 
0859 


FAGE 96 


256 
267 
268 
269 
276 
271 
272 
275 
274 
275 
276 
277 
278 
279 
288 
281 
282 
283 
284 
285 
286 
287 


. 288 


289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
500 
301 
302 
303 


194 


86 
BAZD 
0640 
96425 
9545 
$647 
9648 
648 
964Е 
0۳۴ 
9552 
453 
9656 
9659 
@65C 
9650 
0669 
9685 
0665 
0869 
дас 
@66D 
9479 
$571 
0574 


@E00 
266200 
226409 
CD4E86 
0 76 
FE82 
C20106 
228400 
CD4E64 
0۵76 
FE7F 
۴۲16 
ҒЕӨЗ 
C65096 
FEGD 
CAZ186 
FE29 
06176 
77 
CD69DD 
56 
004 
288600 


EB 
200406 
CD14DE 
076 
76 
23 
CD8F04 
С51496 


CDBED6 
(۵70964 
64ء‎ 
065096 
ЗАЕВЕЕ 
57 


30:198 


8676 32 


6679 
957C 
9657 
0681 
9684 
0587 
6584 
268 
868٤ 
0690 
6693 
8695 
068 


562038 
წC01 

022197 
255200 


CAB766 
FE26 

6686 
FEGD - 


READ 


LOOF: 
LOOK2 


DISPL 


LOOKS 


TEST 1 


STOPTR 


CVTBUF 


EBPTR 
:DE14 
STOPTR 
A.M 

H 
ECHO 
LOOK 

а 

: DABE 


CHESTS 
LOOKS 
INCHAR 


: D6BE 
STOFTR 
CHESTS 
TESTİ 
INCHAR 
0,8 
CHESUM 
0 

8 6 
А,70 
:78 
LOOK? 
FLAG? 
1 
ІМІТЕВ 
51068 
8VIC 
EBFTR 
А,М 

e 
FRADDR 
32 
INCREB 


13 


ZERO CNTR 
START BUFFER 
POINTS TO START 


START TXT? 
ELSE WAIT 
UPDATE FNTR 


NOT VALID IF MSB=1 


END ОҒ TEXT CHAR RECEIVED? 
YES, GO TO TEST CHECKSUM 


FILTER <22, NOT CAR-RET 


DISFL ON SCRN 


UPDATE CHECKSUM 
END OF BUFF REACHED? 


INCR PNTR 

RECEIVER (DCE) ECHO’S 
NEXT CHAR 

CLEAR CARRY 

IF BREAK STOP 
RECEIVING 

CHECK FOR INCOMING 
CHAR’ S 


ABORT IF BREAK 
LOOK IF CHECKSUM ARRIVES 
WAIT IF NOT 


STORE DTE CHKSUM IN REG 
DCE CHKSUM IN ACCU 


JUMP IF CHKSUM OK 

NOT OF "F" IN CURSOR 

AND STAY IN RECEIVE MODE 
ESCAPE WITH BREAK 


IF HEX, CONVERT & RELOCATE 
IF ASCII, TO EDIT-MODE 


START ADDR BYTE-PNTR 
ADJUST BUFF-PNTR 


LAST CHAR IN BUFF REACHED? 
TO RELOCATE ROUTINE : 
SKIF SPACE % CAR-RET 

AND INCR BUFF-PNTR 
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506 9690 064 CALL HEXFAS ASCII TO HEX CONVERSION 
307 BLAD 23 INX H FIRST FASS DONE 
508 0641 22А400 SHLD ۳۴ INCR % ADJUST BUFF-FNTR 
509 9684 7E MOV A.M 
510 05605 СрғедА CALL HEXPAS SECOND FASS 
311 8608 203008 LHLD BYTE STORE FINAL BYTE IN ADDR 
312 @6AB 77 MOV M,A POINTED BY BYTE-FNTR 
313 960C 23 INX H INCR ВҮТЕ-РМТК 
314 @&ñD 223008 SHLD BYTE 
| 515 0680 200400 LHLD ٤ 
| 316 0683 23 ІМСКЕВ INX H INCR BUFF-PNTR 
317 2684 UC38A466 JMP — CVTBUF NEXT CHAR 
| 318 9687 215006 FRADDR LXI H, MSG7 
PAGE 7 
319 дава CDDADA CALL :DAD4 
320 9680 266200 LHLD ۹۶۵8 
521 96C0 10 CALL 8 PRINT START FILE 
322 0603 EB XCHG 
323 964 216096 ІХІ H, MSG8 
324 @6C7 CDD4DA CALL :DAD4 
525 0606 8 LHLD BYTE 
326 @6CD 2B DCX H 
327 @6CE CDISED CALL . :ED18 FRINT END FILE 
528 06ს1 217404 LXI H, MSG? 
329 9604 CDD4DA CALL — +4 
336 9607 7 CALL ۴ MOVE FILE TO ? 
331 0606 8 LDA FLAGS ` 
332 9600 FE01 CPI 1 RELOCATE ABORTED? 
553 060 C26506 JN ۸6+ 
334 0662 08 LHLD STAEB NO MOVE 
555 0665 4 NERE: MOV Б.Н SWAF 
| 356 9666 4D MOV CAL 
| 337 0667 203608 LHLD BYTE 
338 9666 CD4FDE CALL  :DEAF MOVE ROUTINE 
339 G5ED CSE504 JMP — SPECL 
540 ۴۵ 223208 HEXPAS STA STORE! STORE 151 CHAR BYTE 
341 0565 79 MV — A,C 
542 964 FEGI CFI 1 2ND CHAR OF BYTE DONE? 
343 0666 САӨВО7 47 FASS? 
544 969 Ср1507 CALL 7۲ GO TO CONVERT 
345 ӘБЕС 7 RLC 
346 9660 7 RLC 
347 6۴ 67 RLC 
548 SEFF 97 RLC 
349 0700 ع٤‎ ANI :F0 MASE 
| 550 0702 323308 STA STORE? STORE RESULT 
| | 551 0705 1 MVI C,i FIRST CHAR DONE 
m 352 0707 C9 RET FETCH NEXT CHAR 
ў 353 9708 7 ۲۵582 CALL  CONVRT 
| 354 6 47 MOV 8.0 
| 355 070C 3A3308 LDA STORES GET PREVIOUS RESULT 
% 206 979L BO ОКА B AND MAKE FINAL BYTE 
| 257 0710 0 MVI C,6 ZERO CNTR 
| 358 9712 C9 RET STORE BYTE IN BUFF 
559 0713 8 CONVRT LDA STORE1 LOOK IF RECEIVED ASCII 
69د و‎ 0715 FEZA CPI 58 CHAR IS NUMBER OR 
E 361 0718 021Е07 JNC LETTER LETTER AND ADJUST 
E 362 0718 разд Sul 48 
| 5 263 0 C9 RET 
| | 364 071E 7 LETTER SUI 55 
| 365 0720 C9 RET 
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587 0724 7Е LKETXT MOV A,M SEARCH FOR END OF 


3468 6725 0 CPI e TEXT IN EBUFF 
359 0727 7 JZ ADJFTR 

570 9726 23 INX H 

371 9728 ا7‎ JMP ІКЕТХТ 

PAGE 68 

372 0726 23 ADJFTR INX H 

373 072F 220400 SHLD ۶۳8 

374 60732 EF RST 3 INIT SCRN EDIT-MODE 
375 0733 26 DATA :2А 

374 0734 CDBED6 GETC CALL  :D6BE WAIT FOR INPUT 
377 9737 0664 JC ӨРЕСІ. 

378 0734 7 JZ BETE 

379 9730 ЕЕ RST 5 EDIT ON 860 
580 073E 20 DATA :2р 

381 @72F 053497 JMP 86IC 

382 0742 1805 510V1 MVI D,3 

383 9744 CD9L64 CALL  WAITZ SEND END 0۴ TEXT 
384 0747 585108 ША . CHKSUM 

385 9748 7 MOV L,ი 

386 9748 CD9CO4 CALL 72 SEND CHECKSUM 
387 974Е C3E604 JMP SPECL 

388 * 

389 * SEND HEX FILE 

590 * 

391 9751 210606 EDIT2 LXI H, MSGI 

392 0754 CDDADA CALL 4 

393 0757 CDC697 CALL HEXINF INFUT START ADDR 
394 0758 223408 SHLD STAFIL 

395 9750 212008 LXI ۲٦,۲6 

396 0760 28 CALL 4ء‎ 

397 9755 7 CALL НЕХІМР INPUT END ADDR 
398 0766 23 INX H 

399 0767 225608 SHLD ENDFIL IF WRONG INPUT, TRY AGAIN 
460 0766 EB XCHG 

401 9768 203408 LHLD STAFIL 

402 0766 CD14DE CALL :DE14 

403 9771 D25197 JNC EDIT2 

494 0774 1682 MVI D,:82 

465 0776 5 CALL 5956 

4065 0779 110000 LXI 0,9 ZERO CNTR’S 

407 977С ۵ LHLD STAFIL ADDR FIRST BYTE 
408 077F 225898 NXTCH SHLD PTRFIL POINTS TO BYTE 
409 0782 76 MOV A,M BYTE IN ACCU 
410 9783 OF SHIFT КЕС 

411 9784 OF RRC 

412 0785 OF RRC 

413 9786 OF RRC 

414 9787 ۳ MASE. ANT : OF MASE 

415 0789 C630 ADI 48 MAKE ASCII 6-9 
414 0788 FES CPI 58 

417 678D D69207 Jc STEP IF NOT А NUMBER 
418 8799 C607 ADI 7 MAKE ASCII R-F 
419 9792 Cს2608 STEP CALL VERZ SEND CHAR 

420 9795 1С INR E 

421 0796 5602 MVI 8,2 2ND CHAR OF BYTE 
422 9798 BB СМР Е DONE? 

423 0799 7 47 NXTBYT NEXT BYTE 

424 979С 7E MOV AGM 
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425 
42ტ 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
466 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
475 
474 
475 
476 
477 


9790 
076ბ 
0762 
07065 
0767 
9788 
0766 
87AB 
@7AE 
В7АЕ 
9780 
0781 
0782 
0785 
0788 
9789 
@7BA 
9780 
07C0 
2703 
76 


8709 2 


97СС 
97СЕ 
9701 
9704 
9705 
9706 
0709 
@7DA 
0708 
@7DC 
@7DD 
@7DE 
07ЕФ 
97E1 
0764 
97E7 
97ЕА 
07ЕС 
O7EF 
7و‎ 
Ө7ҒІ 
0762 
09765 
Ө7Е7 
97ҒА 
Q7FB 
97FC 
97FD 
9800 
9893 
0804 


РАСЕ 10 


478 
479 
480 
481 
482 
483 
484 
485 
486 


9806 
9809 
0806 
овер 
980E 
0811 
0815 
9816 
0819 


С38797 
3E20 
008 
1600 


026 7 
ЗЕ 
6090646 
C9 
CDB464 
ФЕРЕ 
CD46B04 
027104 


е: 


NXTBYT 


HEX INP 


SFLS 


EXIT 


ALFN 


TRCDEL 


TEST 


MASK GET 2ND CHAR OF BYTE 
A,32 SEND SFACE BETWEEN BYTES 
VERZ 

E,@ CLEAR CHAR CNTR 
D INCR BYTE CNTR 
A,16 LINE FULL? 

D YES, THEN CAR-RET 
CARRET 

H INCR PNTR 

H 

0 

ENDFIL END BUFF ? 

:DE14 

D 

H 

STAY1 EXIT AFTER END FILE OR 
: D6BE BREAK 

STAY1 

NXTCH ELSE NEXT BYTE 

H, INSER ADDR INP SUBR 

:D2 | 

C,6 CLEAR CHAR CNTR 
:Сеза НЕХ ТМРИТ ТО МАСС 
H, RESULT 

4 

: OF 

RESULT+2 

AH SWAP 

H,L 

| „а 

а, С CHAR CNTR 

4 МАХ 4 CHARS 

: DABE WAIT FOR INP 

GHEX 

SFLS IF BREAK TO MENU 
13 

ALFN IS CHAR CAR-RET? 
B,A 

C FIRST INFUT? 

EXIT 

8,1 YES,SET ABORTFL 
FLAGS 

а, В 

: DEG? TEST ALFANUM 

GHEX 

71 TEST A-F 

GHEX 

: D695 DISPLAY ON SCRN 
TRANSC TRANSMIT CHAR 
B,:FF DELAY CONSTANT 
CHESTS LOOK FOR RECEIVED 
INTR1 CHAR’S DURING DELAY 
B 
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487 5816 C21308 JNZ TEST 


488 #810 C9 RET 

489 OBIE 1609 CARRET MVI 09 CLEAR LINE BYTE CNTR. 
490 0820 ЗЕФП MVI 48,15 START NEW LINE 
491 0822 8 CALL VERZ TRANSMIT 

492 9825 C9 КЕТ 

493 9826 DS VERZ PUSH D а 

494 9827 8 CALL TREDEL TO SEND ROUTINE 
495 @82A 1 FOP D 

496 9828 C9 RET 

497 @82C вв FLAGI DATA 9 INIT. FLAG 

498 682D 66 FLAG? DATA e ASCII/HEX FLAG 
499 2وت‎ ВВ FLAGS DATA e HALF/FULL DUPLEX FLAG 
590 2۴وت‎ 090 FLAG4 DATA ё TALE FLAG 

501 2830 98 FLAGS DATA ბ ABORT FLAG 

592 9851 00 CHKSUM DATA @ 

505 0852 00 STOREL DATA 06 

504 9855 00 5۲0852 DATA 6 

595 0854 06 STAFIL DBL 6 

596 0856 9000 ENDFIL DBL е 

507 9858 0000 PTRFIL DEL в 

598 083A 8 8VIC ხხ 6 

509 @83C 0 MSS1 DATA 12,13 

519 OBSE 202020 ASC * TALE !' (cursor-up for MENU) ° 
511 6860 689 DATA 13,12,@ 

512 9845 әсер MSG2 DATA 12,13 

515 0865 202045 asc * ENTER EDIT MODE CE?! 
514 987Е ƏDƏD DATA 13,13 

515 9888 202048 ASC " HALF DUPLEX (DCE) <H>” 
516 9899 Фр DATA 13 

517 8896 8 ASC ° (acho"s to ОТЕ), 

518 @8AB Өр DATA 13 

519 ӘНАС 262046 ASC * FULL DUPLEX (DTE) &Е?? 
520 0805 10 DATA 13,13 

521 6867 202054 ASC - TALK T2? 
922 0860 ƏDƏD DATA 13,13 

525 0862 202053 ASC ^ SEND DNA SOURCE «62? 
524 088 Ор DATA 13 

525 ВЕС 202028 05C ` (+warm start 18617 

526 0911 0р DATA کا‎ 

527 9912 202085 АБС * SEND ASCII FILE «Ам 
528 6928 @D DATA 13 

529 992С 202083 ASC 7 SEND HEX FILE ғы 
530 0945 ODOD DATA 13,13 
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S31 0947 202052 ASC ° RECEIVE ASCII FILE ۸7 
532 0960 #0 DATA 13 

S25 9961 202052 АЗС ° RECEIVE HEX FILE “X>” 
534 897A ƏDƏD DATA 13,15 

S35 8976 202042 ASC * BACK TO UTILITY zu» 
538 0995 Өрөр DATA 13,13 

337 0997 292042 ASC 7 BACK TO BASIC «B» 
558 0980 оророр DATA 13,13,13 

539 ت698‎ 202054 АЗС ° ТҮРЕ INSTRUCTION ! А 
540 BFCA 00 DATA ё 

541 99CH @CƏD MSG3 DATA 12,13 

542 0900 202020 ASCE ` SEND FILE’ 
543 99Е8 66 DATA 13,13,0 

544 O9EB ٤٥ MSG4 DATA 12,13 

545 e9ED 202020 ASE  " RECEIVE FILE’ 
546 6668 ۵8 DATA 15,15,90 

547 ج6۵6‎ есерер MSGS DATA 12,13,13 


124 - 548 9А11 686 АБС *1МРИТ START ADDRESS OF FILE #’ 


REE EE EEE EE OL ”_ ”_----- asaaÀ ——OÑs ar——asB Isa 


549 6۵2۴ ئ٥‎ DATA ё 





550 9450 OD MSG6 DATA 13 

551 ФАЗІ 494650 ASC “INPUT LAST ADDRESS OF FILE i 
552 964 eo DATA e 

553 ۵56 ӨСӨрөр MSG7 DATA 12,13,13 

554 @ASS 484558 ASC НЕХ FILE LOCATED FROM #? 

555 9668 09 DATA 8 

396 ӨЛ&С 202054 M568 ASC ° TD # 

557 0473 00 DATA 8 

558 0074 ерер M569 DATA 13,13 

559 9076 52454С ASC КЕ ОСАТЕ TO (GIVE STARTADDR.) #° 
569 9895 90 DATA В 

561 6۵ RESULT RES 4.0 

562 BAIA ENDPRG END 


JOE ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ICE E EER EER EERE 


= 
% 
x 
% 








*SYMBOL TABLE * 

К: KF FF E E E E E E HF E HE FF E FF 3F Е 

ADJPTR 072E ALFN @7FD BACESP 0477 BDRATE 9084 
BYTE @83A CARRET @BIE CHKFLi @5D2 CHKSTS 0468 
E CHKSUM 0831 CHOISE 64FE CLCHKS OSAA CLEBUF 0456 
3 CONVRT 6713 CVTBUF ФӘВА DISPL 6631 EBPTR 0944 
E ECHO — 648F EDIT @5AF  EDIT2 9751 ENDER 9045 
i ENDFIL 0856 ENDPRG ФАЗА ENDWST 6454 EXIT 97ЕВ 
% FLAGI @82C FLAG2 9820  FLAGZ 982Е FLAGA @B2F 
і FLAGS 0830  FULLD 0554 GETC 0734 GHEX 0761 
3 HALFD 954С HDUPLX 64E2 НЕХІМР 47C4 HEXPAS 06Ед 
Б INCHAR ۴۴۴۰۵ ІМСКЕВ Ф585 ІМІТЕН 9721 INSBR @7DD 
ჯ INTRI 9471 LETTER 971Е LKETXT 0724 LOOK 6614 
۲ LOOK2 9517 LOOKS @44E  MAINLP 2404 MASK 6787 
E MSGi @83C — MSG2 6863 MSG3  O9CB  MSG4 99ЕВ 
i MSGS ФАФЕ MSGS ФАЗӘ MSG7 9450 MSGS م6۵‎ 
E MSG? ФА74 NBRK 4E5 МЕХТЕН 95ВА МХТВҮТ 0700 
E NXTCH @77F OUT 9460 FASSZ 0768 PRADDR 0687 


ы ы 
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& PTRFIL 9858 READ 90601 RECASC 9560 БКЕСНЕХ 0577 

Í RESULT 6496 RMSG 9598 SASCI 0865 SCREEN 9484 
E SDNAS 9587 5-5  97F5  SHEX 9558 SHIFT 0783 
3 SMSG 9582 БРЕС ۵486 SSOURC ФБЕВ SSTEB 05Е0 
E STAEB 09042  STAFIL 9834 START 9492 STAY1 0742 
STEP 9792 STOPTR @47C STORE! 6822 STORE? 9833 
51586 ЕРЕЗ SUMCHA 9409 TALK @53B TEST 9817 
TESTI 0650 TOBAS 0544 TOUT 9418 TRANS 94А0 
TRANSC 09484 TREDEL @8@E VERZ 0825 WAIT 0402 
WAIT2 . @49C 


сез сызы КДЫН‏ کن 
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4 пеш + mieuw + mew * mouveau + 


ж Schreibschrift + 
* writing-characters + 


# DAI # Itho 510 # 


4 46 4 36 + چیہ 36 چیہ 34 £ +Ë‏ + جد ЗЕ Db 3§ ЭР‏ چچ چچ +3 جد جج ہی ہے £+ €> 3 Ë‏ چډ ہے +t‏ £+ +3 £+ £+ 


Das newe 4k Eprom ‘ENI’ ermigticht dic Darotettumyg won aed. 
vemscriedenen Beicthenvrizen im mised Mode. Das Eprom enthitt einen 
дол де ел, ичели and einen datochen LMtandertzcichensatz. 
Letzt man ein Eprom oom Typ LEI DAT Ал den DAI-Beroonat Computer and 
aim Eprom oom Typ ЖАН -ЧАЙИ» in den Drucker Tho 8510, оо Сори sich 
beide Beichensitze souoht mit dem DAL ato ach mit dem Drucker über 
FLEET EEN "um mined Mode darrtetteon. 


The new 4% eprom EENI” permita the dioptay mf tuo dipperent 


“აი луф comme. UNS 


#A0 HAL 1 #A2 " #A3 # HAS Ф HAS Z #46 & ЯНА?” НАЕ ( 
НАУ) AA w #AB + НАС , #AD — UAE . #AF Z #00 #81 1 
#B2 2 НЕЗ з НВА 4 HB 5 HB 4 #5 7 HB 8 ხხ 9 HBA : 
ВВВ; НВС < #BD = #BE > #BF 2 #00 8 #1 A #2 B 403 е 
нса D #с5 € HCG Е НС7 & HCE X #C У HCA У HCB К ORCC iL 
HCD КЕМ "CF GO ШОР #0 G #D2 Е 03ا8‎ L #04 L #05 U 
BD სას #HD7 სს нра X 8D? پا‎ HDA Z HDB AH #DC Š HDD ц HDE ^ 
HDF _ #0. #Ei а #E2 4 НЕЗ c НЕ4 d HES е  HE6 £ #E7 4 
HES 88۶ + НЕА 1 HEB & HEC +  HED m #EE л HEF ^ FO т 
НЕЇ ა #F2 r НЕЗ 2 НЕД + #F5 ы #Е6 a #7 w ФЕВ ж ЖЕ? s 
НЕА Z ЯЕВ а НЕС ò НЕЮ 4 ЯКЕ $ 
1 Eprom 49,— DM 
+ 7,50 DM post & packing. 
address: | eprom type: 
Frank CaBebaum 85۷1-0۵ for DAI-PC 
GrenzstraBe 64 55۷1-10 for Itho printer 8510 
D-2800 Bremen 01 
Те1.: 0421/3 96 23 53 UMLA-Epson fer époon سس‎ ет тво with 


Your order 44 check or on اسم ہم مم‎ wr: 550005301309 
Veri-raichentank Bremen 
Bankteitzaht: 29020300 
Wert = tyermom, 
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Ж meu Ж mi салам Ж mew Ж MmMoOUveau Ж 


ж LU ж 
ж Zeichen ж 
Ж characters Ж 


XK 3 OK OK YK ЖЖЖ DK SK KC OK OC 2% XK 2% KK DK жж 2K 2K 2K OK OK OK OK жж 


Eine kleine Anderung Ihrem DAI-PC ermöglicht die Darstellung 
von zusätzlichen 125 Zeichen. Es sind lediglich eine Leiterbahn 
zu unterbrechen, ein 4,7 kOhm Widerstand und ein 4k Eprom 
einzubauen. Nach diesem Umbau können Zeichen von #0 bis "FF mit 
dem DAI dargestellt werden. 


Just a little change in your DAI-PC permits the display of 
additional 125 characters. You have to cut a track and to insert 
a resistor and a 4k eprom. After doing this, characters from ЖО 
to #FF can be displayed with your DAI-FC. 







Lütseite / solder side: 


2732. 16 35 


4 3 2 4 232249 24 424920 
















2415 
IC ۶ 373 
ცა, 43 
4? 7С%% 
> 
nev 3 
new (ბა 
IC 
И 12 13 14 T 5 ё 
31 794 L5 465 
rc 38 
45V 
i itch Ronal 
4k Eprom o Soie е 
2432 
8 0 CHRG (490) €> «ი11(# FF) 
(5 CHRS (#2) <> cun (# ЕЕ) 


Frank Caliebaum 
Grenzstrafie 64 
D-29800 Bremen 1 
Tel.: 0421/3 96 23 53 
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1000 
1010 
1926 
1025 
1030 
1035 
1040 
1069 
1079 
1980 
1098 
1190 
1149 
1150 
1155 
1180 


1200: 


1210 
1228 
1230 
` 1246 
1245 
1246 
1258 
1260 
1398 
1400 
1420 
1500 
1990 
2000 
2029 
2040 
2060 
2089 
2090 
2095 
2100 
2110 
2120 
2130 
2140 


NEXT YS:NEXT JJ 


/GETZ=GETC: IF GETX-0 THEN 1420 


MODE @:PRINT CHR$(12):REM TEKST MODE - VAAG SCHERM 


EURAC: 9, 18 

PRINT پر پر پر پر پر‎ ЗЕЗЕ جرد‎ ЗЕ ЗЕЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ E ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕЗЕ ЗЕ چو‎ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕЗЕ ЗЕ چو‎ ЗЕ ЗЕ ЗЕ و‎ E EF EF EEE Ó 
PRINT " + Ж + 
PRINT" * DRIE DIMENSIUNEEL TEKENEN x" 
PRINT " + x" 
PRINT " * | +" 
PRINT " + EENBLADIGE e 
PRINT " + ж" 
-PRINT " + OMWEMTEL INGSHYPERBOLOIDE #" 
PRINT " ж x" 
PRINT " # | J.ROELANTS +" 
PRINT " HEEE HE кекке ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ چو‎ ЗЕЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕЗЕЗЕЗЕ I" 
PRINT sPRINT ۳۲ : 

REM -------------------------------------------------------------- 


У-2000.0:1-35.0:КЕМ WAARNEMINGSAFSTAND - AFSTAND TUSSEN W.PUNTEN 
PRINT " Geef de verdraaiing. rond X,Y,Z AS in каеп (v.b.70,39,9)" 
INPUT "----> ";0,B,C: PRINT 
REM OMZETTING NAAR RADIALEN 

А-А/57. 296:8=8/57. 296: C=C/57.296 

GOSUB 4000 

MODE 6: МОЕ 4:REM BRA FISCHE MODE 336 x 256 

REM KLEURKEUZE ZWART ROOD GROEN GRIJS. 

COLORG @3 5 8 ` 

REM ----------------------------------------------------------- 
КЕМ FIGUUR OWEMTELINGSHYPERBOLOIDE 

REM ---> WIJZIG DE KEELDODRSNEDE V.B. C=2000 
A-950.0:C-60.0:LY2140. 0: REM RARAMETERS 

FOR YS--LY TO LY STEP 40.0 

Q=YS/C: R-A*SOR (1. 0:02) 

FOR JJ=0.@ TO 270.0 STEP 3.9 

J=JI#P1/180.@ 

XS=R*COS (J): ZS=R#SIN (J) 

GOSUB 5000: 6058 2000 

IL JJ<>0.0 THEN GOSUB 2108 

XERM=XER: XELM=XEL: YEM=YE 

NEXT 99: МЕХТ YS 

FOR 42-0.0 TO 270.0 STEP 50.0 

J=JJ#PI/180.0 Г 

FOR YS=-LY TO LY STEP 5.0 یی‎ 
Q=YS/C: R-A«SOR (1. 04QxQ) : XS-R«CDOS (J): Z6=R*SIN(J) 
GOSUB 3900:605)8 2000 
IF YS<>(-LY) THEN GOSUB 2100 
XERM=XER: XELM-XEL : YEM=YE 







REM -_-__-_. к = 
REM WACHTLUS 
GETZ=GETC: GETZ=GETC: GET“=GETC 


GOTO 5e 
REM -------------------------------- 
REM BEELDPUNTEN RECHTS EN LINKS 
K=V/ (ZP+V) 
D-(1.0-K) ××: KX-KXXP168. 5 
XER=KX+D: YE=K#YP4+128.5 

XEL-KX-D 

RETURN 

REM ------------------------------------- 

REM TEST OF LIJN NIET BUITEN VALT 

IF YE<0.0 OR ҮЕ>ҮМАХ OR ҮЕМ<0.0 OR YEM>YMAX THEN 2220 

IF ХЕН<0.0 OR XER2XMAX OR ХЕНМ<0.0 OR XERM>XMAX THEN 2220 


ЛЕ XEL<®.@ OR XEL>XMAX OR XELM<@.@ OR XELM>XMAX THEN 2220 
‘REM ТЕКЕМ RODE ЕМ БКОЕМЕ LIJN 
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215@ DRAW XER,YE XERM,YEM 17:DRAW XEL,YE XELM,YEM 19 

2220 RETURN 

2230 НЕМ ------------------------------------------------------------ 
$ 3000 REM ROTATIE 

5010 XP=AX#XS+BX*YS+CX#Z5 

5020 4 YP=AY*XS+BY*#YS+CY2#ZS 

3040 ZP=AZ#XS+BZ*YS+CZ*Z5 

3200 RETURN 

5990 REM ------------------------------------------------------------ 
4000  AX-COS(B) *COS (C) 

4028 BX=SIN(A)*SIN(E) «COS (C) -COS CA) *SIN(C) 

4048 СХ=С05 (A) +91۲8 )8( 4CDS (CD) +SIN CA) *XSIN(C) 

40660 ۵۸۷۰09 (В) SING) 

4070 BY=SIN(A)*#SIN(B) *SIN(GO-4COS (A) «CDS (С) 

4080 CY-SIN(C) *SINOGD +005 (А) -LOS (С) *SIN(A) 

4090 AZ=(-1.0)*SIN(B) 

4100  BZ-SIN(A) #COS (B) 

4120 CZ=COS(A)*COS(B) 

4200 RETURN 

4220 КЕМ жж 






ма 


Ps 
() 


აო 
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AUDIO-CASSETTE INTERFACE 


SIE ERE RRR ши ии чи ша ии ши им и шина ии 


PART 2: READING FROM TAPE 


1. INTRODUCTION: 


1.1. WRITING TO TAFE: 


See a previous Newsletter for part 1 of this article about writing to 
tape. 

Details on the software routines can be found in the DAI pe Firmware 
Manual. : 


1.2. SIGNAL FORMATS: 


In part 1, the format of the signals on tape, the routines used for 
writing and the set-up of a tape file are explained. 

Fart 2 describes the way signals are retrieved from tape by the 

DAI resident software. 


The principle of reading tape files is identical to the way they are 
written, but of course just the other way around. 

The reading routines will be described in the same sequence as done 
with the writing routines. 


2. HARDWARE CONNECTIONS: 


ლლ z; ლ z: == ии z:‏ جح mz: z; mz‏ نت mz 502 mz zz za mz SS‏ ہد 


The connections between the DAI and the audiG cassette recorder are 
completely described in part 1. 


5. SUBROUTINES FOR READING FROM TAPE: 


ულ ულ ულ ელ ლ m ელ ლლ ლე ელ سے سے‎ ლელ ულ ელ ულ eee 


3.1. READ A BIT - RBIT/D4SS: 


Оп entry, the register pair HL contain the address of the recorder 
input port ЕрОО. The most-significant bit (msb — bit 7) of the data 
read from this port is the received data. As long as it is "low, 8 
{ORA М) results in '"O", causing a loop via JF :D457. If this loop is 
done too often (checked by a count in register В), an error (сагку- 
flag = 1) is the result via D47E. When a "high" is received, 045L 

(ORA M) gives #80 and the routine continues. 


ЕЕЕ сигез 
ს. eee жан теа е 


data 71” and 70” bits 


The loop D45F-D465 waits for the received data to go low again. Here, 
register C checks if the signal remains too long high. During this loop, 
а counter (register D) is decremented. When a "low" is received, 

counter D stops, and the loop D46B-D470 is entered, waiting for the 
received signal to go "high" again (register B checks for too long. 
low). | 

If this happens, loop 0475-0479 waits for a return to "low' (register С 
checks too long high). During this loop, counter D is now incremented 
until the signal goes low. 





Depentiing on which impulse is the longest, the value of counter D at 
the end will be positive or negative: 


ist impulse longer: ٤0 data = 
2nd impulse longer: О>О data = "û? 


The contents of counter D is moved into the accumulator (D47C). If Deo, 
the төз of A is '1'. If рхо, the msb is "0". So the received bit is now 
bit 7 of the accumulator. 


If a reading error occurs (the signal is too long high or low), the 
routine will exit with the carry-flag set (CY¥=1) via 047Е. 


Note that reading a bit is time-independent. No relation with a fixed 
impulse length is used, only a compare between both impulses is made. 


3.2, READ A BYTE - RBYTE/D4D4: 


Because a byte consists of 8 bits, the routine REIT has to be performed 
8 times. 

The register E is loaded with #FE (1111 1110). A bit is read via REIT 
into the msb of the accumulator. Via the carry-flag, this bit is shift- 
ed into the register E (D4E2-D4E5). As long as the bit which is shift- 
ed out of E is a '1', the routine is repeated (totally B times) via 

JC :D4DC. 

Each time a new bit is read, it is shifted behind the previous one into 
register E via DAE2-DA4ES. 

After 8 times, the CY-flag is '"O'. Then the received byte is available 
in the accumulator. 


If during RBIT a reading error occurs, RBYTE is aborted via D4DF (JC 
:D4E9). Then on exit of RBYTE, the carry-flag will be set, indicating 
a loading error. 


5.5. READ A LEADER ~ RLEAD/D4B80: 


Is the absolute timing not important when reading data bits, for the 
recognition of the leader tone on tape it is very important. 

Reading a leader tone consists of reading a continuous tone from tape 
and checking if its frequency is within a certain margin. If this is 
true long enough, the tone is recognised as a leader. 


~ 0489-048Е: As long as the received signal (via port FDOO) is high, 
the loop waits for the signal to go low. Via EI/DI, the cursor remains 
flashing. 

- 0491-049С: Now is waited for the signal to go high. If it lasts too 
long (register E counts), the leader reading routine is restarted 

(JZ 10488). 

- D49F-D4A56: As soon as the signal goes high, register B is used as a 
counter. It is incremented as long as the signal remains high. A too 
long high level restarts the leader check routine. 

~ D4A9-D4AB: As soon as the signal goes low again, the duration count 
in register B is compared with an estimate (in register С: #28). The 
difference is stored in register Е (0480). 

~ раво-равв: The tolerated margin is calculated (04) and compared with 
the difference in register E. If the difference is too large (that 
means: no leader impulse), JC :DA4C3 occurs. 

- DABB-DACOs: If the received impulse has a length which is within the 
margin, the next impulse is checked via JNZ 10494. This is repeated 20 
times (register D counts) to be sure the received signal is a real 
leader tone. 

If 20 times (#14) a correct impulse is received (that means: leader tone 
found), the routine waits in a loop for other impulses than those of 
the leader. Because the leader consists of 2024 impulse pairs of the 
duration ^24", followed by a data 717 bit (duration *30/24"), the “АС” 
impulse of the latter will cause the routine to be aborted because it 
differs too much from the margin. Then D488 causes JC :D4C3. - 131 








~ 0405-04C4: If "out of margin" occurs during the first 20 runs of the 
routine D494-DA4BC, the register D is not yet O. That means synchronis- 
ation is not yet found, and the routine starts anew. 

More than 20 runs means synchronisation is detected, and the program 
continues. 

- 0407-0400: After the first impulse of the data 717 bit after the 
leader tone (duration '3C's out of margin), here the second impulse of 
this bit is handled. 


4. FILE HANDLING: 


Read again carefully what is written in part 1 about the set-up of a 
file. 

For audio-cassette recorder operation, the resident software has 
routines to open a file from tape (CROPEN), read data blocks from tape 
(CRELE) and to close a file read from tape (CRCLOSE). 

The startaddresses of these file handling routines are moved from ROM 
into RAM during reset. The default addresses for audio-cassette 
recorder operation ares 


ROFEN 8020 JMF #0525 
REBLE #0201 JMF 8040 
RCLOSE #0204 JME 5 


4.1. OPEN А TAFE FILE ~ CROFEN/D325: 


- Get length of name expected (if given) in register pair DE; HL points 
to the name (MFTZS/D7FF). Switch on cassette motors (CASST/DAZE). 
Disable sound interrupts (SNDDI/D98F),. 
Read the header (RHDR/DSF4): 
~ Read leader, find synchronisation (RLEGD/D480). 
~ Read flag byte #55 (REYTE/D4D4). 
- Read file type byte (RBYTE/D4D4): 
#20: А Basic program. 
#51: А Hex file. 
S2: An array. 
If not load during program run: Display file type byte on the screen 
(MPT24/D78603 This byte is directly FOKE'd into the screen memory. 
Read the name of the program (CMBLK/D337). 
The length of the name (and its checksum) is read, then the name is 
read and FOKE'd into the screen memory, and the checksum on the name 
is read. 
If a loading error occurs on one of these read routines, a loading 
error report is prepared via DIED. If all checks are O.K., the CROPEN 
routine is ready now. 


4.2. READ A BLOCK FROM TAFE - CRELKE/D340: 


i 


Calculate the available memory space (MPTZS/D790). 

Read the length of the block and the checksum on the length 
(OINLNG/DS&gD). 

Ап error is reported if a reading error (via D37E) or checksum error 
occurs or if the available memory space is too small (via 0280). 

Read the contents of the block (D364-D36C). The error exit via 02576 is 
taken if a reading error occurs. 

Read the checksum on the block contents (RBYTE/D4D4). Here again the 
error exit via D380 if a checksum error has been found. 


i 


4.3. CLOSE ñ TAFE FILE ~ CRCLOSE/D445: 
~ Switch off the cassette motors (CASSF/DA45). 


Note: The trailer tone on the tape is not written ! 
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Three resident file reading routines are available: 


"LOAD? file type Q Read Basic programs. 
"UT /Read* file type i Read Hex files. 
*LOADA* file type 2 Read Arrays. 


The use of the routines КОРЕМ, КЕШЕ and RCLOSE is not 100% identical 
for each of these methods. 


5.1. BASIC COMMAND “LOAD? ~ RLOAD/D270: 


- 0270: Clear all variables in the heap and in the symbol table. 
Evaluate the (eventually) expected file name. Check if load 
during program run. 


- 0286: КОРЕМ (see 4.1). 
- 0280: Get pointers to begin of textbuffer (TXTBGN) and bottom of 


screen memory (SCRNBOT) for calculation of available memory 
space. 
- 0294: RBLEs Read length of textbuffer + checksum. 
Idem for textbuffer contents. 
- 0297: Get pointer to start of symbaltable for calculation of availa- 
ble memory space. 
- D29A: Ки К: Read length of symboltable + checksum. 
Idem for symboltable cantents. 
Store endaddress of symboltable. 
RCLOSE (see 4.3). 
- D202: Eventually, run “LOADING ERROR O/1/2/3'. 
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5.2. UTILITY COMMAND Read)? - RHEXE/SEFOF: 


~ EFOF: Get ап evt. offset for startaddress оп stack. 

- ЕЕ14: Get ап evt. name іп the encoded input buffer. 

~ EFIE: КОРЕМ. 

- EF21: Sets the maximum available RAM area to F900 (end of stack RAM. 
This is incorrect, because COOO-EFFF is ROM and FOOO-F7FF is 
also not available. 

~ EF25: КЕК: Read startaddress from tape. 

— EF28: Add an evt. offset given. 

- ნ 29: КНК: read the data block from tape. 

RCLOSE: Stop reading. 
- ЕЕза: Kun an evt. loading error (print 777). 


5.5. BASIC COMMAND 71-ОАрА” ~ RLODA/DSSE: 


- DESE: Evaluate type of array to be loaded. 
- D8635: Evaluate an evt. program names switch to ROM bank 1. 
- iEEOF: КОРЕМ; КЕШЕ; read array type. 
If INT/FFT arrays: RBLF: read array contents into the array 
in the heap. 
If string arrays: КЕКЕ read the array contents into the free 
RAM space (see Newsletter 1981/р,10). Then move the data 
into the heap. 
Switch to ROM bank O. 
RCLOSE. 


© - Jan Boerrigter - Jan. 1983 
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16 CLEAR 256:MODE @:CLEAR 1500 

11 REM XX Cube rotating and translating in space ** 

20 5V1!z0.0:5V2!-0.0: SVI! =0. 0: S01 !=0. 0: 502!-0.0:85D03!—0.0 

2i IPTS=0: IPTF=0:K1=0:K2=0:F!=5.9 

22 X2-21: XT=42: XS=21 : Y2240: YT=37: DF=23 

30 NV=8: NE=12: NS=6: CO=3: AN=4 

31 DIM M! (CD, СО), NORM! (СО, NS) , VERT! (CO, NV) 

32 DIM EDGV1 (МЕ), EDGV2 (NE) , PEDG (ANXNS) 

33 DIM EDG(NE) , XP! (NE), YP! (NE) 

50 BOSUB 11000: МОРЕ 6:COLORG 8 @ 19 15 

5000 FOR L=1 TO 56 

5002 FOR U-1 TO NE:EDG(U) =0: NEXT 

3004 IF ілі OR L=56 THEN RESTORE: BOSUB 16666:6010 5020 

5010 FOR U=1 TO NV 

3011  SV1'sVERT!(1.0,U) : SV2' ZVERT! (2. O, U) :SV3!=VERT! C3. 6,UD) 

5012 VERT! (1.0,U)=SV1!'#M! (1.0, 1.0)4+SV2' M! (1.0,2. 0) YGVS! xM! (1.0, 3.9) 
5013 VERT! (2.0,U) -5V1 #М! (2.0,1.0) 45V2! eM! (2.0,2. 0) YBVS ! 3M! (2.0, 5.0) 
5014 VERT! (3.0,U) -5V1 ! sM! (5. 0,1. 00 KGV2'! XM! (3.0, 2.0) KGVS ! M! (3.0, 3.90) 
3019 NEXT 

3020  IPTS-1:FDR U=1 TO NS 

5022 SQ1!'=NORM! (1.0,U) :SQ2!=NORM! (2. 0,0) : 503: ZNORM! C3. 0,1) 

3023  NORM!'(1.0,U) 8501 !xM! (1.0, 1.0)4+S502' 9M! (1.0,2. 0) 60314! (1.0, 3.8) 
3024 NORM! (2.0,U) -S01 ! xM! (2. 0,1. 0) +502! М! (2.0,2. 0) 5605! M! (2.0, 3.0) 
3025 NORM! (3. 0, 0))=901 ! M! C5. 0,1. 00-502! 4M! (S.0, 2.0} KGOS ! XM! (3.0, 5.8) 
3630  IPTF-IPTS43S:K1-PEDG(IPTS) : K2-EDBV1 (K1) 

3031  XN2'--VERT! (1. 6, K2) : YN2! —-VERT! (2. 0, K2) : ZN2! —-VERT! (3. 6, K2) -F! 
3632 DT!=NORM! (1.@,U)#XN2!+NORM! (2.0,U) * YN2! +МОКМ! C3. 0, U) *XZN2': IF DT!«0.0 
6010 3041 

5040 FOR V-IPTS TO IPTF:VV-PEDG(V) :EDG(VV) -EDG (UV) +1 0: NEXT 

3041 IPTS=IPTS+4 

3049 NEXT 

5050 FOR U-1 TO NV:ZPF'-VERT! (3.0, ۰+(ل0ا‎ 

3051  XP'(UD)-F'xVERT! (1.0,U) /7PF ! : YP! (U) =F eVERT! (2. 6,U) / ZPF ! : NEXT 
3955 X=X+XT:IF X>XMAX THEN X=X5:V=V-VI 

5060 FOR U-1 TO МЕ: IF EDG(1)-0.0 GOTO 3049 

5052 Х1-ХР! (EDGV1 (LI) ) «DF: Y1-YP ! CEDBVI (U) ) ЖОҒ 

5063 X2=XP! CEDBV2 (U) ) «DF: Ү2-ҮР! (EDGV2 (U) ) *DF 

3065 DRAW X+X1,Y+Y1 X+X2,Y+Y2 0 


5089 NEXT 

3099 NEXT 

9999 END 

10000 FOR I-1 TO CO:FOR J=1 TO NS:READ K:NORM! (1,23-К:МЕХТ: МЕХТ 
10002 DATA 09,-1,0,1,0,0,0,0,0,0,-1,1,-1,0,1,0,0,0 

10004 FOR I=1 TO CO:FOR 2-1 TO NV:READ K: VERT! (1,1) <К-9.5: NEXT: NEXT 
10005 DATA 0,0,1,1,0,0,1,1,0,1,1,0,0,1,1,0,0,0,0,0,1,1,1,1 

19008 FOR 1-1 TO NE:READ EDGV1(1):NEXT 

16010 DATA 1,2,3,4,5,6,7,8,1,2,3,4 

10012 FOR I-1 ТО NE:READ Е06У2(1) : МЕХТ 

10014 DATA 2,5,4,1,4,7,8,5,5,4,7,8 

10016 FOR I-1 TO M5#იM:ინის PEDG (1) : МЕХТ 

19018 DATA 1,2,3,4, 1,755, 10,8, 7, 6,55, 3, 11, 7,12, 4,12, 8,9, 2, 10,6, 11 


10099 RETURN 

11002 RAD!=PI/(180.@/1.25):SN!=SIN(RAD!):CS!'=COS(RAD!) 

11001 M!'(1.0,1.0) -SN' *SN'*SN'*CS'4C5!:M! (1.0,2. 0) -GN! *CB!:M! (1.0, 3.0) =SN!#C 
S! -SN'«*SN' +۰۲ 

11002 M'(2.0,1.0) --SN'*CS' +SN! #SN!#CS!:M! (2.0,2. 0) -LG! XES!:M! (2.0, 5. 0) =-5M! 
*SN'-SN'xCS'«CS' 

11003 M! (3.0,1.0) 2—SN'!*CS!:M! (3.0,2. 0) -5М!:М! (3.0, 5. 0) ZCS ! xCS'! 

11099 RETURN . 
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LES MESSAGES D’ERREUR 


Les 26 messages d’erreur du BASIC sont affiches grace 
а un programme qui se trouve a l'adresse 





# D9FS 


L'acces a ce programme se fait de la maniere suivante: 


SE nn - MVI A,VAL 
CS F5 09- JUMP :D9F5 


Avec пп = VAL = numero du message. Ci dessous le tableau qui 
donne la valeur nn (VAL) pour chaque message. 


NEXT WITHOUT FOR LOADING ERROR 3 
UNDEFINED ARRAY 


COLOR NOT AVAILABLE 


DIVISION BY ZERO 
GUT OF STRING SPACE 
STRING TOO LONG 
NUMBER OUT OF RANGE 
INVALID NUMBER 
LOADING ERROR 0 
LOADING ERROR 1 
LOADING ERROR 2 


LINE NUMBER OUT OF RANGE 
STACK OVERFLOW 

SYNTAX ERROR 

COMMAND INVALID 

CAN’T CONT 

LINE TOO COMPLEX 
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SENDING-—IN PROGRAMS 
(from DAInamic 10, page 74) 


Many members of DAInamic appear to be unaware that they can submit programs. Programs 
received here are judged and the sender receives our commentary on it, If the program justifies 
an exchange and is suitable to be added to DAInamics library the sender will also receive a 
number of the programs already in our library, The conditions required for a program to be ` 
eligible for an exchange are not stringent because even a beginner must have a chance to send in 
his work. The sender may state a preference for certain collections and we will oblige if 
possible, People who regularly send in will already know that sometimes they receive nothing 
but at other times get much more than the value of their current contribution, If your program is 
subsequently included in one of our "collections" you will receive a bonus, the whole collection, 
free. (Complain if we should forget). 


Now let us talk about submitting programs. We prefer to receive them on DCR cassette so that 
there will be no loading problems. Failing that, but still appreciated, would be submission on 
disc or on a normal cassette. The higher cost of minicassette or diskette need not be too 
burdensome as you get back what you send in, We regularly have loading problems with ordinary 
cassettes and this in turn delays our reply to you. You can minimise such problems by starting 
off your tape with a series of 20 tests which will enable us to make our adjustments, Do this in 
the following wayt- 


NEW return 

DIM A(0) return 

FOR I=1 TO 20 ؛‎ SAVEA A "TEST" ؛‎ NEXT return 
and of course do have the recorder on Record ! 


Furthermore you can assist with an accompanying letter, telling us what to expect on the tape, 
That saves us running the tape right through to its end when there is nothing more оп it, An 
actual written letter is needed because the same information on a tape would be useless if, 
because of loading problems, it could not be read. Now for the most important part, the program 
itself. 


May I give a spot of advice to all who are about to send in programs, do let someone with no 
knowledge of computers try out your pragram first. I have had scores of programs which after a 
RUN left me waiting only to find that the control was in a closed loop, or sometimes expecting 
me to give a particular response, although at that time I would have had no knowledge of what 
was required. At other times, an apparently correct program takes a long time reading in data, 
and this can be annaying if there has been no prior indication, preferably by an announcement 
and a running counter which indicates progress. I have also had many programs which after a 
RUN report QUT OF MEMORY, COLOUR NOT AVAILABLE, NUMBER OUT OF RANGE, QUT OF 
STRING SPACE, UNDEFINED ARRAY, QUT OF DATA and almost every other message, while 
further on in the program OFF SCREEN is the winner. Check your programs thoroughly - often 
another can do it better. A pragram with a confirmed fault will not be included in a collection, 
You can avoid many faults by improving the structure of the program. Remember that everybody 
does not see the same picture equally well, so your chosen colour combination could be difficult 
for another to read, I find 4/5, 4/8, 4/12 unuseable, but 6/7 and 7/8 are nice and clear. There 
are obviously still many aspects remaining to be discussed but I would like to end this article 
with a plea to send in something. Remember that we all started as beginners, and in any case, 
nobody yet turns out perfect programs. Beginners especially often show Sriginapty which many 
old-timers cannot match, 

Frank Н. Druijff 
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100 БОТО 598: ВЕМ Gemaakt door Hendrik-Jan уап Randen. 
158 X1=XM–X1 (11 :V1=VM–V1 (Т) : X22XM-X2 (Т) :Y2=YM-Y2 (Т) 
160 DRAW X1(T),YL(T) Х2(Т),Ү2(Т) Z:DRAW X1,Y1 Х2,Ү2 ۷ X1,Y1(T) X2,Y2 
(T) Z:DRAW X1(T),Y1 X2(1) ,V2 Z:RETURN 
200 FOR W=@ TO AL STEP A:K=21+RND(3) :K (K-21) =1+RND GIF) :C01 086 0 K(0) К(1) 
K (2): Z=20:T=W:GOSUB 150 
210 X1 (W) <АМО (ХМ) : Y1 (W) =RND (YM) : DX=(RND (ХМ) –X1 (W) ) /А: DY=(RND (УМ) –V1 (W) ) /ñ 
= X2(V) =X1 (O): Y200 хУ1 (0) : 7-К: GOSUB 150: V-W 

1 250 FOR T-W*1 TO WHA-1:0=0+1:2Z=20:GOSUB 150: X1 (11=X1 (V)+0X: Y1 OT) =Ү (У) +ру 

# :X2(11=X1(0) :Ү2(Т) zY1((0) : Z=K: GOSUB. 150: V-T: NEXT 

1 260 O=W:NEXT:W=@:GOTO 200 

300 CLEAR 5000: MODE &:MODE 5:6F-3:6-10:A0L-AF*A-1:XM-XMAX: YM-YMAX: DIM X1 (A 
г), Y1(AL), X2(AL) , Y2(AL),K(2):GOTO 200 





19 GOTO 500:КЕМ ZANDLOPER / F.H. DRUIJFF 2/82 
29 Y=YR-1:DOT X,Y KZ:K-1-K:0N К GOTO 40 
50 IF SCRN(X+1,Y-1)<>KA GOTO 56:00۲ X,Y KA:X=X+1:Y=Y-1:DOT X,Y KZ:G0TO 3 


40 IF SCRN(X-1,Y-1)=KA THEN DOT X,Y KA:X=X-1:Y=Y-1:DOT X,Y KZ:GOTO 40 
50 IF YR>=44 GOTO 70:00Т X,110-Y КА 

40 YR=YR+1-SGN (ABS (35-X)) : ۲-35: 6010 20 

79 DRAW 35,YL 35,YL-2 KA: YL=YL-3:IF YL>42 GOTO 60 

88 IF ӨЕТС-д GOTO 80 

500 CLEAR 5000: MODE 4:KA=0:KZ=10:KL=3:COLORG КА KR KZ KL 

510 X=35:Y=65:FILL 24,79 46,103 KZ:READ A,B 

520 FILL 25,104 45,105 KZ:DOT 25,105 KA:DOT 45,105 KA 

559 READ C,D:IF C=999 GOTO 56@:DRAW X+A,Y+B X4C,Y4D KL 

540 DRAW Х-А,Ү-В X-C,Y-D KL:DRAW X+A,Y-B X4C,Y-D KL 

559 DRAW X-A,Y+B X-C,Y+D KL:A=C:B=D:GOTO 530 

560 Y=68:FOR 1-1 TO 10:DRAW X-I,Y+I X+I,Y+I KZ:NEXT 

570 IF SCRN(X,Y)=KA THEN DOT X,Y KZ:WAIT TIME 0:V=V-1:6010 570 
589 YR=Y+2:YL=68:GOTO 20 

800 DATA 1,0,1,3,12,14,12,60,11,60,11,61 — 

810 DATA 10,41, 10,42,0,42,999,0 





5 REM BLOC IN REVERSE F.DRUIJFF 

16 МОДЕ 6:COLORG © 10 10 @:XM=XMAX-1:YM=YMAX-1 

15 РОК 1=0 TO YMAX STEP 4:DRAW 0,0 XMAX,I 17:DRAW ХМАХ,9 9,1 17:МЕХТ 

x 20  KX=159:Y=18Z:S=20;XS=X+S:YS=Y+S:FILL X,Y XS,YS 19 

| 39 НЕБЕТС: ТЕ Нед GOTO 50 

40 IF H<>16 GOTO 50 

45 НЕВЕТС:ТЕ Н<29 GOTO 46: 1۴ YS>=YM GOTO 3@:DRAW X,YS*1 XS,YS*1 19:DRAW 
X,Y X8,Y 18:V8=V8+1:V=V+1:6010 45 

50 IF Н<217 GOTO 60 

35 НЕВЕТС:ТЕ H<>@ GOTO 40:1F Y<=1 GOTO 3o:DRAW Х,Ү-1 XS,Y-1 19:DRAW X,YS 
XS,YS 18: YS=YS-1:Y=Y-1:GOTO 55 

60 IF H<>18 GOTO 70 

65 — H=BETC:IF Н<20 GOTO 4@:IF Х<-1 GOTO 3@:DRAW X-1,Y Х-1,Ү5 19:DRAW ۷ 
XS, YS 18: Х=Х-1:Х6=Х5-1:80Т0 65 

79 IF Н<219 GOTO 30 

759 H=BETC:IF Н<29 GOTO 460:7۴ XS>=XM GOTO 10: ВАН XS+1,Y XS41,YS 19: DRAW 

X,Y X,V5 18:XS=XS+1:X=X+1:GOTO 75 

вә ‘GOTO за 
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RUN (LINE NUMBER) WITH BASIC V1.0 
E E E E E E EE E. E THE EE 


Nearly all DAI-users who have still the V1.0 BASIC ROM’ s 
will have undoubtedly been freauently upset after a non 

recoverable error occurred during program execution. 

A re-start will always empty the heap and symbol-table. 

After study of the differences between 91.0 and V1.1 , 

I found the following solution. 


1) Type the object code of the short MLP, called RUNLIN in 
RAM, by using the Substitute feature in UTility. 
Note: The object code is relocatable. 

2) Adjust the heap pointer 29В-29С, set pointer after last 
address object code. 

3) Type NEW 

4) Load your BASIC program and type RUN. 

5) To re-start at a certain line number, first define a 
variable (integer), which is given the value of the 
reauired line number, followed by a call to the МІР. 


EXAMPLE: Assume start address MLP is #300. 
Re-start at line 100 


Type the following commands in direct mode: 
LINEX=100:CALLM #300, LINE% 


The program will now automatically start at line 100, with- 
hout emptying the heap and symbol-table. 


Finally a few suggestions: 


-After the object code is saved on tape, it can together 
with the BASIC program, easily be loaded with the earlier 
in DAINAMIC published Bootstrap-loader.Step 2 and 3 can be 
ommitted in this case 

-If frequently is re-started at the same line-number,make 
the variable part of the BASIC program i.e. 10 LINEX-100 
and re-start with only CALLM #300, LINEX. 


success 
G. GRUITERS 


*RUNLIN BY G.GRUITERS 16-1-83 

+ 

*THIS MLP IS ONLY 31 BYTES LONG 
«Амр RELOCATABLE! 

*USERS WITH BASIC V1.0 CAN RE-START 
*THEIR BASIC PROGRAM RUN (LINE-NR) 
#WITHOUT EMPTY-ING HEAP AND SYMBOL 


*TABLE. 
* 
* DRG :300 START ADDR MLP 
INX H SKIP 1ST 2 ADDRESSES 
INX H OF VARIABLE IN SYMB-TABLE. 
мау  D,M NEXT 2 ADDRESSES CONTAIN 
INX H INTEGER LINE-NUMBER AND ARE 
MOV Е,М MOVED IN REGISTER DE. 
XCHG EXCHANGE DE WITH HL 
CALL 6 SEARCH LINE-NR IN TEXTBUFF 
MOV 8.9 ADDRESS TEXT LINE IN HL IS 
MOV CJL MOVED IN REG. B 
CALL 141 RESTORE ROUTINE 
LXI H,O š 
SHLD :115 RESET TRACE/STEP FLAG 
ZAR 
STA +1126 NO SUSPENDED PROGRAM 
LXI 5р, :Р900 RESET STACK-PNTR 
ORA A CLEAR FLAGS 
JMP :C88 RUN BASIC PROGRAM 
END 


###RUNLIN OBJECT CODE е че 


25 23 56 25 SE ЕВ CD Ғ6 CA 44 40 CD 01 Е4 21 00 
00 22 15 01 AF 52 26 01 31 OO F9 B7 C3 ВЕ C8 
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i-TRANSLATIONS—-TRANSLATIONS-TRANSLATIONS— 
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DAI VIDEO—-HARDWARE 


(DAInamic 10, page 77-81) 


1, MODIFYING THE DAI COMPUTER FROM INTERLACING TO NON-INTERLACING. (2) 

A TV picture is made up of 525 lines, These lines are not traced on the screen all at once but in 
two goes. In other words, firstly the odd numbered lines are traced across the screen and then 
the even numbered ones, Qf the 625 lines only about 550 are visible. Your DAI computer works 
in the same way but here the information on the odd and even lines is the same, Suppose that 
the next trace is an odd numbered line} the following trace, an even one, carries the same 
information as the previous one but will display it a little lower on your screen. The distance 
between the two traced lines is from 0,5 to 1.0 mm. A line trace lasts 20 mS (50 Hz), Summing up, 
the picture generated by your DAI flickers somewhat in an up-down fashion, with a periodicity 
of 2 x 20 mS, i.e. 40 mS, and that is the reason for а rather unsteady picture, 


PROPOSED MODIFICATIONS. (3) 

(In the diagram the Dutch word Aanbrengen means Provide and Verwijderen means Remove.) 
Since pin 12 of IC25 is connected to ground (GND) under the chip on the component side of the 
printed circuit board it is difficult to break the connection, In order to free this pin it is best to 
snip through it immediately above the print (component side) and bend it up so that a wire can be 
run from it to pin 14. 


(4) The advantage of the foregoing modification will be clear for all to see but there is also a 
disadvantage. If one is using the 20 mS interrupt (vector 7) in, for example a real time clock, 
then the clock will run a shade too fast. 

ficrystal (ZNA 134)) = 2,562,500 Hz 

f(line) = f(crystal) / 164 = 15525 Hz 

Firaster) = Fine) / 312,0 (was 312,5) = (50 + 25 / 312) Hz 
Thus the 20 mS interrupt now comes every 19.968 mS. Taking it further, the real time clock will 
gain 138 seconds every 24 hours, assuming that the crystal frequency is as above, (See also 
section 3 of this letter), 


2. MODIFYING DAI's PAL COLOUR BOARD WITH RESPECT TO VIDEO AND COLOUR 
BANDWIDTH, (5) 

I noticed that the test card broadcast by the Dutch TV stations,had a better resolution than the 
pictures produced by my DAI, The reason far this is that the video bandwidth of the DAI-PAL 
colour board is only 3MHz (-6dB), Similarly the colour bandwidth is only 0,75 MHz. Why has the 
DAI company chosen such low bandwidths? Perhaps to overcome interference? Television 
bandwidths are SMHz and 1,5MHz respectively, After the modifications given in the following 
pages the TV interface bandwidths are 7MHz and 2.5МНт respectively. This produces an 
enormous improvement, Since doing the modification I have had no trouble from interference ar 
similar problems. With some TV sets however there could һе, Mine is a Philips with the KT3 
chassis, 43cm 90 degree picture tube. The use of a ?0 degree tube makes this set ideal for a DAI 
monitor as the improved focussing possibilities of the tube are better than needed for the 
original SMHz bandwidth, 


(6) Proposed modification of the DAI-PAL colour board (brightness), 
(7) Proposed modification of the DAI=PAL colour board (colour), 
The Dutch words in the two diagrams, (6) and (7) can be translated as follows!- wordt = becomes, 


verwijleren = remove, spoel = coil, en doorverbinden = and connect through, instel = instal (ог 


fit) | (teim, adjust) 
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3. ADJUSTING THE TV LINE FREQUENCY (15625 Hz). (8) 

The frequency generated by the DAI was about SMHz too low, This is not really serious for 
normal computer use, unless one attaches much importance to the accuracy of the 20 mS 
interrupt (V7), If the modifications described in section 1 have been done then the error is more 
serious, As I am a radio and television service amateur I attach great value to the accuracy of 
the line frequency, for the regulation and checking of the colour demodulator. In order to adjust 
the line frequency in your DAI a small madification has to be made, namely the replacement of a 
small capacitor by an adjustable one. (See page 9), Anyone who does not use his DAI as a test 
pattern generator has no need to bother with the alterations described in this section. 


MODIFICATION AND ADJUSTMENT OF TV LINE FREQUENCY. (9) 

(The note beneath the diagram reads :-) Replace capacitor C by a SOpF trimmer capacitor. Using 
the trimmer the frequency сап be adjusted to 1,281,250.0 Hz. Connect the frequency counter to 
pin 10 of IC25 (ZNA 134), 


4, ADJUSTMENT AND MODIFICATION OF THE COLOUR CARRIER WAVE. (10) 

Using the DAI as a test pattern generator soon taught me that the carrier frequency was so 
high that some TV sets could not tolerate it, resulting in colour reproduction being 
over-coupled. To lower the frequency and correct it a 2207 trimmer capacitor is fitted in 
parallel with the crystal on the modulator board, The frequency must be very precisely adjusted 
and because my frequency counter was not accurate enough 1 had to devise anather method of 
measurement - which was to equate the frequency with that of a TV transmitter by means of 
Lissajous patterns on an oscilloscope, One channel (of the scope) is connected to the input of 
the DAI's HF modulator (the small tin box on the modulator board, pin 4) while the other channel 
is connected to the output of the colour reference generator of the ТУ set. Туре on the DAI: 
100 COLORG 1 0 0 OIMODE SiGOTO 100 followed by RUN. 


(11), Tune your TV to a transmitter and check that the test card is still displayed in colour. Let 
the computer and the TV warm up for half an hour. Then adjust the newly fitted trimmer until 
the Lissajous pattern on the scope is stationary. 


5. ADJUSTMENT OF THE SOUND CARRIER. (12) 

In the same way, the frequency af the sound carrier is important when the DAI is used as a test 
pattern generator. À sharpened matchstick is needed to do the adjustment. Connect the 
frequency counter to pin 1 of the HF modulator. In the lid of the madulator are two small holes, 
The one you want is that nearest the side holding the connector, Adjust the frequency to 5,500 
KHz, During this have ‘SOUND OFF’, Adjustment was not necessary on my DAI. 


6, PROGRAM ‘TEST CARD’, (13) 

Because, as you know, I am a service amateur I had a need for my own test pattern generator, 
This was the chief reason for modifying various parts of my DAI computer (see the previous 
sections) Àn example of an inconvenient picture is the test card of the Dutch transmitters, The 
real problem is that the DAI Basic V1.1 in graphic modes could not cope with the unseen parts, 
the most important features of a test card, That is why there is so much POKEing to the screen 
in the nrogram, listed on pages 103 and 104, The circle has turned out a bit smaller because this 
time I wanted to make use of the basic support, This program is not expected to be suitable for 
all sorts of tuners, but it is all right in my practice where I want the same picture every time, 
Here is a short description of the programi- 

Lines 100-999 the short main program 

Lines 1000-1060 initialise the screen memory so as to push the screen up a little and add a bit 
below it. 

Lines 2000-2804 place the white blocks around the frame of the picture (mast are only partially 
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visible) 

Lines 3000-3070 divide the Picture into small rectangles, 

Lines 4000-4050 draw a circle with short dashes, It is not used in the main program. When 
needed it is called by a GOSUB 4000 in line 210; change GOSUB 5000 to GOSUB 4000, 

Lines 5000-5960 fill the circle in the middle of the test card, The circle is Organised fram top to 
bottom as follows!- 

-red/yellow bar to check the delay line, 

~black reflection bar to check for reflections and side lobes in the intermediate frequency band, 
~graded grey bar for linearity check of the final video amplifier, 

-colour bars to check the colour reproduction, 

~there is a cross in the centre of the circle for convergence, 

-frequency bars for checking the frequency characteristics of the IF section and video final 
amplifiers), 

~graded grey bar, 

-yellow/red bar to check the delay line. 

At the end of the pragram is my own version of SGT (slow graphic text). It is for the mast part 
taken from the DAI handbook, Some precautions had to be anticipated and modified so that the 
text string could run separately from the picture, In addition the pragram has been extended to 
include an option for drawing text at various angles, in contrast to other versions of graphic 
text where this is only possible with angles which are multiples of 90 degrees. SGT can be 
called with a GOSUB 40000. In the main program one must insert an extra CLEAR 1400 for this 
subroutine, Variable A$ is the text to be printed. X and Y are the starting point co-ordinates, 
Variable DEV is the angle at which the string is to be printed, radially anti-clockwise. С is the 
colour code and F the enlargement factor for drawing the text, 


EDUCATIEVE SOFTWARE 


* Wij Zoeken ervaren programmeurs - leerkrachten, die bereid zijn 
om bestaande programma's uit ons pakket educatieve software 
naar de DALPE te converteren. 


* Wij onderzoeken ook graag uw didactische programma's met het 
oog op eventuele uitgave. 


Uitgeverij J. Van In, Grote Markt 39, 2500 Lier 
Tel. 03/480.55.11 vraag naar : Ludo Camps 
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DAInNamic CATALOG 1-14-вз+ 


CODE TITLE AUDIO DCR 
61 GAMES COLLECTION 1 400 550 
G2 GAMES COLLECTION 2 400 550 
GS GAMES COLLECTION 3 400 350 
64 GAMES COLLECTION 4 800 950 
85 GAMES COLLECTION 5 400 550 
65 GAMES COLLECTION 6 750 909 
67 GAMES COLLECTION 7 75% 900 
68 GAMES COLLECTION 8 750 900 
89 GAMES COLLECTION 9 750 909 
61% GAMES COLLECTION 10 75% 700 
Gil GAMES COLLECTION 11 750 900 
DNA DNA ASSEMBLY PACK 1100 1250 
FGT FAST GRAF TEXT 1000 1150 
FGTA FGT-APPLICAT IONS 1000 1150 
1M1 TOOLKIT 1 10% 1150 
тка TOOLKIT 2 1000 1150 
TKS TOOLKIT 3 1060 1150 
TK4 TOOLKIT 4 1000 1150 
PE1 PRIMARY EDUCATION 1 1000 1159 
561 SECUNDARY EDUCATION 1 1000 1150 
SE2 SECUNDARY EDUCATION 2 1000 1150 
WP WORD PROCESSOR I 1000 1150 
ML MAILING LIST 1000 1150 
GT GRAPHIC TABLET 1000 1150 
М1 MUSIC COLLECTION 1 300 456 
M2 MUSIC COLLECTION 2 300 450 
MS MUSIC COLLECTION 3 500 450 
DTP DAI TINY PASCAL 1909 1150 
EGT ENGLISH-GERMAN TRAINER 1000 1150 
DD DAI DEMO + BASIC TUTOR 509 650 
CH SARGON CHESS 15% 1850 
51 SPACE INVADERS I 800 950 
T80 TAPE 80-81 850 1000 
ме NEWSLETTER 10 500 65% 
M11 NEWSLETTER 11-12 650 800 
N13 NEWSLETTER 13-14-15 650 800 
CTP CENTIPEDE 400 750 
01 0۴ 600 750 
SUI SUPER INVADER 400 750 
DTX DAINATEXT 2000 2150. 
DAPA DAIPANIC 800 950 
JR MICRO’ S-ONDERWIJS 990 1100 
SPL SPL MACRO-ASSEMBLER 1100 1250 
W3 WISKUNDE 3 750 900 
1I1 TAAL 1 750 900 
ნ1 FYSICA 1 75% 900 
ЕВ FAMILIEBUDGET 500 65% 
GH GRAFISCHE HULP 500 650 
АСК ACROBATES 609 750 


HARDWARE & PUBLICATIONS 


PCS рАІрс SCHEMATICS 850 
BOD BEST of DAInamic (80-81) 500 
SNG SUPER NOISE GENERATOR 1500 
MC NEW CHARACTER GENERATOR 1000 
DCE DCE-INTERFACE-CARDS 2500 
N8 NEWSLETTERS 8-13 (192) 500 
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